COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.<<Dec. '74	PUB Macro for MUSIC Memo Cover and Title Pages	by LES, JAM
C00008 00003	.DEVICE XGP
C00012 ENDMK
C⊗;
.<<Dec. '74	PUB Macro for MUSIC Memo Cover and Title Pages	by LES, JAM
.
.This file contains a macro for making the cover and title
.page for Music Memos.  In most cases it can be used "as is",
.else you can copy and modify it for unusual situations.
.
.The general form of the macro call is:
.  macro cover(number,titl,auth,spons1,spons2,moyear);
.where	number = Music Memo #,
.	titl   = title of the memo,
.	auth   = name(s) of author(s),
.	spons1 = first sponsor (if any),
.	spons2 = 2nd sponsor (if any),
.	moyear = month and year of publication.
.Any or all of the last three parameters may be omitted.  If the
.date is omitted, the current month and year will automatically
.be used.  You may insert a "↓" in either the title or list of
.authors wherever you wish them broken over two or more lines.
.The current list of sponsors known to this routine is ARPA,
.NASA, and NIMH.
.
.For example, if you PUB a file containing the following,
.  require "cover.pub[sub,sys]" source;
.  cover("2",|An Exploration of Musical Tembre|,
.    "John M. Grey");
.  <text of abstract>
.then the the top lines of both the cover and title pages will
.look like this (but wihout the dots in column 1):
......................................................................
.Center for Computer Research in Music and Acoustics	 November 1974
.
.Department of Music
.Report No. STAN-M-2
.
.
.		    An Exploration of Musical Timbre
.
.				  by
.
.			     John M. Grey
.
......................................................................
.
.In this case, there will be no organizational acknowledgement and the
.text of the abstract will be put out in Baskerville 30 font.
.
.Alternatively, if the following call is used,
.  cover("2",|An Exploration of Musical Timbre|,
.    "John M. Grey",NSF);
.acknowledgement of NASA support will be placed on both the front
.cover and in a footnote on the title page.
.
.Still another form is illustrated by
.  require "cover.pub[sub,sys]" source;
.  font A "sign57"; turn on "%";
.  cover("2954",|%AFINAL REPORT↓%*Contraceptive Devices for Robots|,
.    "Virgina Reddy and Rod Supple",ARPA,"Zero Population Growth",May 1986);
.  font B "ngr 30"; select B;
.  <text of abstract>.
.Here, the title line is broken in two, with the first line in large
.type, and the authors are listed on one line.  Acknowledgements are
.generated for both ARPA and ZPG, a non-current date is used, and
.the abstract is printed in NGR30 rather than Baskerville.
.>>
.DEVICE XGP
.page frame 52 high 79 wide
.area text lines 1 to 52
.place text;

.require "basker.pub[sub,sys]" source;
.font 4 "ngr40";
.ODDLEFTBORDER←EVENLEFTBORDER←1000;

.macro cover(number,titl,auth,spons1,spons2,moyear);	⊂
.turn on "→{";

.at "↓";	⊂ }
.⊃

.macro header;	⊂
.if length("moyear")<3 then dat←month&" "&year else dat←"moyear";
.nofill; select 4;
Center for Computer Research in Music and Acoustics→{dat}

Department of Music
Report No. STAN-M-number

.CENTER SKIP 2
titl

by

auth
.xgenlines←-6;
. ⊃

.macro seval(thing);	⊂
.sev←"thing";
.if length(sev)≤5 then begin "eval"
.    if "thing"="ARPA" ∨ "thing"="NASA" then ntis←1;
.    sev←thing;
.    end "eval";
.⊃

.arpa←"Advanced Research Projects Agency↓ARPA Order No. 2494";
.nasa←"National Aeronautics and Space Administration";
.nimh←"National Institute of Mental Health";
.nsf←"National Science Foundation";
.ntis←0;

.skip to column 1; header;

.if length("spons1")>1 then begin "sponsors"
.  sk←lines/2-(if length("spons2")>1 then 15 else 10);
.  skip (sk max 2); sp1←1; sp2←0;
Research sponsored by

. seval("spons1"); sev}
.  if length("spons2")>1 then begin sp2←1;
and
.    seval("spons2"); sev}
.    end
.end "sponsors" else sp1←sp2←0;
.skip (lines-16);
CCRMA
Artificial Intelligence Laboratory
DEPARTMENT OF MUSIC
Stanford University

.next page
.header;

.arpa←"Advanced Research Projects Agency of the Department of Defense"&
.    " under Contract DAHC 15-73-C-0435 ";
.nsf←nsf&" under Contract NSF DCR 75-00694 ";
.send foot	⊂
.begin "foot" fill; adjust; select 2;
.  if sp1>0 then start "acknowledge"
.    seval("spons1"); ss←sev;
.    if sp2>0 then begin
.        seval("spons2"); ss←ss&" and the "&sev;
.        end
.    ss←ss&".";
This research was supported by the {(ss)}
.  end "acknowledge";
The views and conclusions contained in this document are those of the
author(s) and should not be interpreted as necessarily representing the
official policies, either expressed or implied, of Stanford University,
.if sp1>0 then start "sponsor"
spons1,
.  if sp2>0 then start
spons2,
.    end
.  end "sponsor";
or the U. S. Government.
.if ntis>0 then begin "ntis"

Reproduced in the U.S.A.  Available from the National Technical Information
Service, Springfield, Virginia 22151.
.  end "ntis";
.end "foot";
.⊃

.skip ;  select 3;
ABSTRACT
.skip; FILL ADJUST; select 1;
. ⊃